home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #9 / utv2n9s2.d64 / tombs of doom (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  581b  |  33 lines
  1. 100 l=l+1:onlgoto120,190,210,230,250,270,290,310,330,350,370,390,410
  2. 110 :
  3. 120 sys65418:sys65412:poke55,0:poke56,160:sys58451:clr:l=1
  4. 130 ifpeek(1023)=251thensys52480
  5. 140 print"[147]":poke53280,0:poke53281,0:printchr$(142);chr$(8);
  6. 150 forx=828to847:readd:pokex,d:next:sys828:load"loadscr",8,1
  7. 160 data169,2,162,0,157,0,216,157,0,217,157,0,218,157,231
  8. 170 data218,232,208,241,96
  9. 180 :
  10. 190 load"sprites",8,1
  11. 200 :
  12. 210 load"chars",8,1
  13. 220 :
  14. 230 load"screens",8,1
  15. 240 :
  16. 250 load"code",8,1
  17. 260 :
  18. 270 load"bits",8,1
  19. 280 :
  20. 290 load"color",8,1
  21. 300 :
  22. 310 load"spr2",8,1
  23. 320 :
  24. 330 load"bon1",8,1
  25. 340 :
  26. 350 load"bon2",8,1
  27. 360 :
  28. 370 load"scorscr",8,1
  29. 380 :
  30. 390 load"finscr",8,1
  31. 400 :
  32. 410 sys36864
  33.